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MODULE RESTART (2TI ATLe ouget opprenmoint and Restart’ 
pent 
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BEGIN 


' 
leeeeeerereereererereererarerererrerereetereeeeeerereeeneeeeenereeerereeerese 


ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
ie DIGITAL AL EQU UIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED uses A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN oe ANCE WITH THE TERMS OF vatee LICENSE AND WITH THE 
te INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!@ COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 
& 
& 
© 
v 
® 
& 
® 
ie TRANSFERRED. . 
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!@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= a eeokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeerereeereeeeeeteeteteeeeeeeeeeeeenese 
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ee 
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i FACILITY 
3 : Backup/Restore 
35 i ABSTRACT: 
0036 : This module contains the routines that checkpoint and restart a save 
sit £4 ; operation from the beginning of a reel. 
0039 i ENVIRONMENT 
se : VAX/ VMS user mode. 
0048 i 
Bez AUTHOR: M. Jack, CREATION DATE: 9-May-1981 
0045 : MODIFIED BY: 
8049 i v03-003 LMP0272 L. Mark Pilant 6-Jul-1984 8:50 
0048 : Modify BACKUP to always use a full FIB. 
050 1! v03-002 LY0458 Larry Yetto 1-FEB-1984 10:20 
008, } Make restore operation restartable 
bag i v03-001 ACGO313 Andrew C. Goldstein, 12-Feb-1983 16:26 
ee Add routine subtitles 
0056 i v02-002 MLJ0075 Martin L. Jack, 28-Jan-1982 20:33 
005 : Use FIBSV_NORECORD. 
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! ree ; 
j ft 1 
START Reel Checkpoint and Restart 16-Sep-1984 00:18:1 AX-11 Bliss-32 V4.0-742 
| ¥oe-000 1o-gee 138 0:38:38 BACKUP. SRC JRESTART.832;1 
: 0089 
9 5 v02=-001 MLJ0054 Martin L. Jack, 20-Oct-1981 2:55 
0060 Implement restart for INPUT_PLACEMENT and INPUT _VBN_LIST. 


OCK. Move STAACP globals to common. 
E_VM jacket routines. 


L 
Integrate GET_VM and FRE 


Se Oe ee Oe oe See 
o 
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: Implement /IGNORE=INTER 
i 
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and Restart 

REQUIRE ‘SRCS:COMMON’; 

LIBRARY ‘SYSSLIBRARY:1 1B"; 

REQUIRE ‘LIBS:BACKDEF'; 

FORWARD ROUTINE 
GET_DYN_SPACE: NOVALUE, 
GET- COPY: NOVALUE, 
REEC_CHECKPOINT :NOVALUE, 
RESTORE COPY: NOVALUE, 
SAVE_RESTART: NOVALUE, 
RESTORE_RESTART:NOVALUE; 

EXTERNAL ROUTINE 
FREE VM: NOVALUE, 
GET_9M 
GET" ZERO_VM, 
CHECKPOIRT_M: NOVALUE, 
RESTART_M: NOVALUE, 
ASSIGN_INPUT_CHANNEL, 
FILE_ERROR: NOVALUE, 
FREE_BUFFER NOVALUE, 
WAIT? NOVALUE, 
FREE_DIR_DATA: NOVALUE, 
INIT-DIR-SCAN: NOVALUE, 
FIND-NEXT, 
RESET_DIR_SPEC: NOVALUE; 


EXTERNAL eo 


BACKUP$_CONTINUE, 
BACKUPS_OPENIN; 


GSDEF INE(); 


BUILTIN 
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Get area of dynamic memory 

Copy area to dynamic memory 

Checkpoint at eginning of reel 
Restore copy of dynamic memor 

Restart save from beginning of reel 
Restart restore from beginning of reel 


Free virtual memory 

Allocate virtual memory 

Allocate and clear virtual memory 
Checkpoint machine state 

Restart from checkpointed state 
Assign channel to input volume set 
Signal file-related error 

Free a buffer 

Wait for 1/0 completion on a buffer 
Release directory context 
Initialize directory context 

Find next file ' 

Change selection filespec 


ee ee 


! Define global area 


7 
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42 
231 


$3 
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Reel Che 
Checkpoint driver table 14-Sep-19 
1661 1 esertt, "Checkpoint driver table’ 
1908 : ; Define table to drive checkpointing operation. 
1664 LITERAL 
1096 ; : Action codes. 
1008 1 EXIT= 0, ! Exit from ereretion 
166 1 COPY= |» ! Copy variable 
1670 1 COPYDYN= 2. ' Copy Gynenis area pointed to by variable, 
1671 1 ! where Length is given by second parameter 
1976 1 SPECIAL_1= 3, ' Copy dynamic volume information area 
1675 1 at ge 4, ! Copy index file bitmaps 
1674 1 SPECIAL_5= Se ! Copy RMS info for input file 
1675 1 SPECIAL_4= g. ! Copy directory positions 
1676 1 SPECIAL_5= ‘ ' Copy FASTSCAN buffer info 
1677 1 SPECIAL_6= 8; ! Copy file placement blocks 
138 
1680 1 COMPILETIME 
1682 , VARS_SIZE= 0; ! Size of area to be allocated 
1683 1 
1684 1 MACRO 
1685 1 
16 1 ! Macro to generate one table entry: 
1687 1 ! Byte of action code 
1688 1 ‘ Word of length 
Hb ; } Word of address relative to GLOBAL_BASE 
1691 1 i Parameters: 
1038 1 : A = action code 
16935 1 ! B = length, when required 
ey: ; C = variable name 
" 1696 1 T_CA,8,C)= 
m 1698 1 ZPRINT(*Storage for ', C, * at offset *, ZNUMBER(VARS_SIZE)) 
m™ 1699 1 
m7 “ 
Ll 1708 1 WORD ( 
: 170 : at, A EQL COPY OR A EQL SPECIAL_3 OR A EQL SPECIAL_4 
i] 1308 1 ZIF ZNULL(B) 
x 1706 1 ZTHEN 
"170 1 ZALLOCATION(C) 
™ 1708 1 ZASSIGN(VARS_SIZE, VARS_SIZE * ZALLOCATION(C)) 
ING | sox 
m1711 #1 SSIGN(VARS_SIZE, VARS_SIZE * B) 
mF ‘ 
m1714 #1 ZELSE ZIF A EQL COPYDYN 
. Ea : ZTHEN 
s 1719 1 EASSIGN(VARS. SIZE, VARS_SIZE + 8) 


Wbe-000 Reel Checkpoint and Restart 15-Sep-1984 90:18:18 ore Blis ms $2 Page 5 


v4.07 
Checkpoint driver table ep-19 BACKUP. SRCJRESTART.832;1 (3) 


ls 1 M1718 1 
r 167 " 1119 TELSE TIF A EQL SPECIAL_1 OR A EQL SPECIAL_2 OR A EQL SPECIAL_5S OR A EQL SPECIAL_6 
} 168 m17 ; 1 a 
13 4 . \? § : SSIGN(VARS_SIZE, VARS_SIZE + 8) 
r 1% M1706 1 MF MFI MFI 
is 7 m1725 (1 ) 
> 1% M17 $1 
13 fg " 7 : ! ‘ WORD(C = GLOBAL_BASE) 
: 17 1729 1 2 
$17 1730 1 BIND 
; 35 1731 1 
: 180 17 ; 1 ! Checkpoint and restart parameter table. Note well: COM_I_SETCOUNT 
> (181 17 1 ' and FAST_IMAP_SIZE must retain their existing values until after 
; 188 1} 5 : for FASt BUFFER Si7E 4 sO ist BUTFER Nah eancnmmamens se 
3 ts 4 : : for z % vs. ~ . 
: 185 P1737 1 CHKPT_TABLE = UPLIT BYTE (T_( 
; 186 P1738 1 COPY, 3. RWSV_VOL_NUMBER, 
: 18 P1739 1 COPY, " RWSV~SEG-NUMBER, 
; «(188 P1740 1 COPY, . RWSV_SAVE_QUAL, 
> 189 P1741 1 COPY, . RWSV-IN_SEQ, 
: 190 P 1748 1 COPY, : RWSV~IN~SEQ_0, 
> 191 P1743 1 COPY, : RWSV~IN-VBN; 
; 198 P1744 1 COPY. ‘ RWSV—IN-VBN.. 
: 19 P1745 1 COPY. : RWSV~IN-XOR~SEQ, 
> 194 P 1746 1 OPY. ; RWSV~OUT_SEG, 
ORY ap ae cet ah 
; 197 P1749 1 COPY, ‘ COMI _STRUCNAME, 
> 198 P1750 1 COPY, ; COM~BOFF COUNT, 
> 199 P1751 1 COPY, FAST_STROCLEV, 
: 90 P 1738 1 OPY, {NPUT_END-INPUT_BEG, | INPUT_BEG 
: 201 P1753 1 COPY, NPUTPROC_LIST, 
; 0¢ P1754 1 COPY, SUTPUT_END-OUTPUT_BEG, OUTPUT_BEG- 
: 20 P1755 1 Y, ; VERIFY-USE COUNT, 
> 206 & 1736 1 Y > VERIFY-QUAL, 
> 205 P1757 1 SPECIAL 2. ; FAST_IMAP 
; P1758 1 SPECIAL~5, , FAST~BUFFER, 
; P1759 1 Y : FAST-BUFFER. SIZE, 
; 208 P1760 1 SPECIAL_1, ; FAST~IMAP_STZ 
: P1761 1 SPECIAL1, : FAST-HDR_OFFSET, 
> 210 P 176 1 SPECIAL“1. FAST~BOOT_LBN, 
> 211 P1763 1 COPYDYN; §12 JOUR“BUFFER, 
; i P1764 1 COPYDYN, BJL$C_DIR_LEN+1, JOUR“DIR, 
> 21 P1765 1 COPY, . JOUR“EF BLK 
> 214 p 1766 | COPY, : JOUR“FFBYTE 
> 215 P1767 1 COPY : JOUR™ COUNT, 
i 3i8 p 1768 SPECIAL_3, NAMSC_BLN+NAMSC_MAXRSS, INPUT FAB, 
: 18 P 1790 1 SPECIAL_4, 6_K_NLEVELS*ZUPVAL, DIR_STACK 
> 21 P1771 1 COPY, ; COM~1_SETCOUNT, 
: 220 P 1778 1 COPY : INPOT"PLACE_LEN, 
> 221 P1773 1 SPECTAL_6. : INPUT"PLACEMENT . 
3 2e2 P1774 1 SPECIAL ~6, ; INPUT“VBN_LIST 
| 
| 
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13 223 L 1775 1 

3 SPRINT Storage for RWSV_VOL_NUMBER at offset 

3 ZPRINT Storage for RWSV_SEG NUMBER at offset 

3 SPRINT Storage for RWSV-SAVE QUAL at offset 4 

3 SPRINT Storage for RWSV_IN_SEQ at offset 

3 ZPRI Storage for RWSV_IN_SEQ_0 at ottset 12 

3 ZPRINT Storage for RWSV_IN_ et 

3 SPRINT Storage for RWSV_IN_VBN_O at offset 20 

3 SPRINT Storage for RWSV_IN_XOR_ SEQ at offset 24 
SPRINT: Storage for RWSV_OUT_SEG at offset ; 

; SPRINT: Storage for RWSV_OUT_VBN at offset 

3 ZPRINT: Storage for COM_FLAGS at offset 36 

3 ZPRI Storage for COM_I_STRUCNAME at offset 38 

3 ZPRINT Storage for COM BOFF QUNT at offset 50 

3 ZPRINT Storage for FAST STROCLEV at oftget 51 

3 ZPRINT Storage for INPUT_BEG at offset 

3 ZPRINT Storage for INPUT PROC_LIST at ot tart 180 
3 SPRINT Storage for OUTPUT_BEG at offset 1 

3 ZPRINT Storage for VERIFY_USE_COUNT at offset 372 
3 ZPRINT Storage for VERIFY-QUAC at offset 376 

3 ZPRINT Storage for FAST_IMAP at offset 

3; SPRINT Storage for FAST BUFFER at offset 388 

3; SPRINT Storage for FAST_BUFFER_SIZE at offset 396 
3 SPRINT Stor for FAST_IMAP_SIZE at offset 40 

3 SPRINT: Storage for FAST_HDR_GFFSET at offset 408 
3 SPRINT: Storage for FAST-BOOT LBN at offset 416 

3 ZPRI Storage for JOUR_BUFFER at offset 42 

3; SPRINT Storage for JOUR_DIR at offset 

3 SPRINT Storage for JOUR_EFBLK at offset 440 

3 SPRINT Storage for JOUR_FFBYTE at offset 444 

3 ZPRINT Storage for JOUR COUNT at offset 446 

3 ZPRINT Storage for INPUT FAB at offset 44 

3 SPRINT Storage for FAST_RVN at offset 

3 ZPRINT Storage for DIR_STACK at offset 799 

3 SPRINT Storage for COM 1_sE COUNT at offset 835 

3 SPRINT: Storage for INPOT-PLACE LEN at offset 836 
3 SPRINT: Storage for INPUT_PLACEMENT at offset 

; SPRINT: Storage for INPUT_VBN_LIST at offset 846 


——————— 
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3 5 1776 1 ZSBTTL *GET_DYN_ space - allocate d gyneate wseery. 

; $ ie : ROUTINE GET"DYN_ SPACE (SRC_LENGTH,SRC_ADDR,DST_DESC): NOVALUE= 

: 228 1779 tee 

: 1781 1: FUNCTIONAL DESCRIPTION: 

3 1 i § ; } This routine allocates dynamic memory if required. 

; 4 1784 1 § INPUT PARAMETERS: 

; 1785 1! SRC_ Len ~ ee - Length of area to be copied. 

: 5 17 1! SRC_A - Pointer to area to be copied (tested for 0). 
3 \? : : DST- “Dest - Address of descriptor for dynamic area. 
; 1789 1! IMPLICIT INPUTS: 

3 179 ; : NONE 

; 1798 1 | OUTPUT PARAMETERS: 

: BE pai 

: 1795 1! IMPLICIT OUTPUTS: 

7 8 | Ste 

: 1798 1 | ROUTINE VALUE: 

: pe 

; 1801 1 | SIDE EFFECTS: 

3 198 1! Dynamic memory allocated. 

1804} ie 

; 1808 Bi 

3 1908 BEGIN 

; 180 MAP r 

3 Hh 9'4 DST_DESC: REF VECTOR; ! Pointer to descriptor 
; 1810 

3 1811 ! Provided it exists, free the old copy of the dynamic area if it is the wrong 
5 13ig size or if there is no source data. . 

: 1814 2] 

: 1815 -DST_DESCC1] NEQ O AND 

3 1816 (.SRC_ADDR EQL 0 OR .DST_DESCCO] NEQ .SRC_LENGTH) 

: 1 aac 

; 1818 FREE VM(.D T DESCLOD, .DST_DESCL1)); 

: 1820 pst _pescto = 

: is 1 DST_DESC(1J = 0; 

; \3 § END; 

; 1824 

5 18 5 : If the source area exists, and no dynamic area exists, allocate one. 
; 18 $ if .SRC_ADDR NEQ 0 AND .SRC_LENGTH NEQ 0 AND .DST_DESCL1) EQL 0 
3 18 : THEN 

: 186 BEGIN 

2 1830 Det peste} = .SRC LSe GTH 

3 133) DST_DESC(1J = GET_0M< SR Cc * LENGTH); 

3 1832 END; 
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(3 282 1833 1 END; 


| Tete 2 Har) Ae Checkpoint and Restart 
«PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL_BASE: 
00000 FREE_LIST: 
00008 InPuT WAIT 
00010 REREAD_WAIT: 
00018 OUTPUT awit 


K 
00020 JPI_UIC:.BLKB 
00024 JPITUSERNAME : 


LK 
00030 JPI_DATE: 
-BLKB 
00038 JP1_NODE_DESC: 
00040 JPL_CURPRIV: 
00048 SY -VERSION: 


0004C SYI1_SID:.BLKB 
00050 RWSV_HOLD List: 


00058 nvsv.crcice 
00098 RwSV _AUTODING 
000D8 RwSV -FILESET 1D: 
000EO RWSV “VOLUME. ID: 
O00EC RUSV.VOL NUMER: 
OOOEE RWSV_SEG -NUMBER: 
OOOFO RWSV_FILE NUMBER : 
000F4 RUSV_SAVE QUAL: 
000F8 RWSV_SAVE FAB: 
000FC RUSV_CHAN: 
00100 RWSV_XOR -BCB: 
00104 RWSV_IN_SEQ: 
00108 RWSV_IN_ “gene _0: 


oo oO © FE © @ OO 
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SPF PF FF FEN NH 
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-BLKB 
0010C RWSV_IN_XOR Sea: 
00110 RWSV_IN_XOR RFA: 
00116 RWSV_LOOKAHEAD: 

-BLKB 
00117 RWSV_XORSIZE: 

-BLKB 
00118 RWSV_IN_GROUP_S!I 
0011C RWSV_IN_ERRORS: 
0011E RWSV_IN -ORUSE : 
00120 RWSV_IN -ORGERR: 
00128 RWSV_IN VEN: 
0012C RWSV_IN -VBN 0: 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 

.BLKB 
00138 RWSV_OUT_ SEQ: 
0013C RwSV -0UT_VBN: 
00140 RWSV_OUT BLOCK, COUNT : 
00144 RWSV_OUT “ERRORS: 
00146 RWSV_SEQ_ “ERRORS: 
00148 RWSV_OUT GROUP. COUNT: 
00149 RWSV_PADDING: 


LKB 
0014C QUAL: _-BLKB 
001BC COM_SSNAME : 


001¢4 COM_VALIO TYPES: 
001¢6 COM. FLAGS: : 
001¢8 COM PADDING: 
001¢9 COM_BUFF “COUNT 
O01CA COM_1_SETCOUNT: 
001CB COM_O_SETCOUNT: 
OO1CC COM_1_STRUCNAME : 
001D8 COM_O_STRUCNAME : 
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Reel Checkpoint and Restart 18-5 Sep 
GET_DYN_SPACE = allocate arnente memory 14-Sep 

-BLKB 
001E4 COM_O_BSRDATE : 
OO1EC ALT SSNAME 
0020¢ INPUT FUNC: | 
0020 INPUT_RTYPE : 
0020 OUTPUT FUNC: 
OO20F FAST_STRUCLEV: 
00210 INPUT BEG: 
00210 INPUT CHAN: 
00214 INPUT Fags: 
00216 INPUT_PADDING: 
00218 INPUT_FAB: 
0021¢ INPUT_NAM: 
00220 INPUT_BCB: 

a LKB 
00224 INPUT QUAL: | 
00228 INPUT_BAD: 

BLK 
0022¢ INPUT BLOCK: 
00230 INPUT_MAXBLOCK: 

-BLKB 
00234 INPUT_MEDIA ID: 
00238 INPUT_NAMEDESC: 

-BLKB 
00240 INPUT_STATBLK: 
00248 INPUT_HDR BEG: 
00248 INPUT_CREDATE: 

-BLKB 
00250 INPUT _REVDATE : 
00258 INPUT_EXPDATE: 
00260 INPUT BAKDATE : 


BLK 
00268 INPUT_FILEOWNER: 


-BLKB 
0026¢ INPUT_FILECHAR: 
00270 INPUT_RECATTR: 

.BLKB 
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00290 INPUT_HDR END: 
00290 INPUT END 

00290 INPUT PROC Uist: 
00294 INPUT PLACEMENT: 
0029¢ INPUT_VBN List: 
00244 INPUT_PLACE LEN: 
002A6 INPUT “PABDING. 2: 
002A8 OUTPUT BEG: 
002A8 OUTPUT CHAN: 
0O2AC OUTPUT Fi AGS: 
OO2AE OUTPUT PADDING: 
00280 OUTPUT_FAB: 
00284 output want 
00288 ouTPUT BiB" 
002BC OUTPUT_QUAL: 
002c0 ouTPut Bib" 
002C4 OUTPUT_BLOCK: 
002¢8 OUTPUT “AARBL cK: 
002cC OUTPUT “pEVEEOM: 
002D4 OUTPUT “ATTOUE: 
00364 OUTPUT Ei: 
00364 LIST _rorfites: 
00368 LIST rors: 
0036C VERIFY FAB: 
00370 VERIFY use" COUNT 
00374 VERIFY oi; 
00378 COMPARE Acs: 
0037C FAST BUFFER: 
00380 FAST _purfeR. SIZE: 
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1e=8ep-1986 14: 

.BLKB 
00384 FAST_RVN: 
.BLKB 
00385 FAST_PADDING: 
-BLKB 
00386 DIR_VERLIMIT: 
~BLKB 
00388 FAST VOL_BEG: 


* 8 
00388 FAST_IMAP_SIZE: 


0038C FAST_IMAP: 
-BLKB 
00390 FAST_HDR_OFFS 


00394 FAST_BOOT_LBN: 


00398 FAST VOLEND: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: . 
003A0 JOUR_HIBLK: | 
003A4 JOUR_EFBLK: | 
003A8 JOUR_INBLK: 
OO3AC JOUR_FFBYTE: 
OO3AE JOUR_INBYTE: 


° LK 
00380 JOUR_STRUCT LEV: 


00382 JOUR COUNT: 
00383 JOUR_REVERSE : 
00384 Jour _Exsi= 

00386 JOUR_PADDING: 


~BLK 
00388 CHKPT_HIGH SP: 


0038¢ CHKPT Lo SP: 
003CO CHKPT_STACK: 
003¢4 CHKPT_VARS: 
003C8 CHKPT_STATUS: 
SEE latest 


~-BLKB 
00300 DIR_NAM: .BLKB 


58:59 
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14-Sep-19 


00304 DIR_DEV_ 


00308 DIR_SEL 
OO3E0 DIR_SEL 
OO3E8 DIR_STR 
003E9 DIR_LEV 
OO3EA DIR_FLA 
OO3EB DIR_STA 
OO3EC DIR_STR 
0052C DIR_STA 


00790 DIR_S 
00794 DIR- “Ei. 


00798 DIR_END: 
00798 DIR-SCA 


007BC INPUT_M 
007CO OUTPUT_ 
007C4 CURRENT 
007C8 CURRENT 
0O7CC CURRENT 
00700 ACL_FIB_ 


00708 ACL_FIB: 
00818 ACL-LEN 


0081C ACL_BUF 


00820 CRYP_IN_ 
00824 CRYP_OU_ 
00828 CRYP_DA_ 


0082C CRYP_DA 
00834 CRYP_DA 
00838 CRYP_DA 
00840 CRYP_DA 
00848 CRYP_DA 


:18:1 
Be 90:38:38 
DESC: 
BL 
DIR: 
LNTV: 
LK 
UCLEV: 
BLK 
ELS: 
L 
GS: 
LK 
TUS: 
LK 
ties 
LK 
CK: 
“BLKB 
LATEST: 
-BLKB 
“BLKB 0 
NLIMIT: 
BLK 
TL: 
MTL: 
-BL 
MTL: 
-BLK 
_VCB: 
-BL 
WCB: 
KB 
DESCR: 
-BLKB 
-BLKB 
GTH 
BLK 
FER: 
BLK 
CONTEXT: 
-BLKB 
CONTENT: 
CONTEXT: 
-BLKB 
TA_ENCIV: 
-6LKB 
TA_CODE: 
TA_KEY: 
-6LKB 
TA_IV: 
-6LKB 
TA_CKSM: 
-BLKB 
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~ @oomoroeoer fF F&F F&F SF OD FF FR HK 


AX=-11 Bliss-32 V4. 
BACKUP.SRC RESTA RT. 


=32 V4.0-742 
RESTART .B32;1 
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«PSECT CODE ,NOWRT,2 


GET_DYN. SPACE = allocate dynamic memory 


Reel Checkpoint and Restart 
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SRCJRESTART.832;1 


BACKUP. 
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oint and Restart 
CE = allocate dynamic memory 


Reel Saag BS 
GET_DYN_SP 
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vO4-000 
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OQOCoCoCoCoooooooooooooooooooooooooooooo 
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096 


H 1 
| RESTART Reel Checkpoint and Restart 16-Sep-1 0:18: AX-11 Bliss-32 V & On rae 
/ v04-000 GET_DYN_SPACE = allocate Seante memory 14-Sep O19 7 9 1:18 BACKUP.SRC RESTAR T.832;1 
00000000 00089 .LONG 0 
CHKPT_TABLE= P.AAA 
-EXTRN FREE_VM, GET_VM 
SEXTRN GET_ZERO_VM,~CHECKPOINT_M 
| -EXTRN RESTART_M, ASSIGN. INPUT~ CHANNEL 
| EXTRN FILE_ERROR, FREE BUFFER 
sEXTRN WAIT? FREE_DIR_DATA 
«EXTRN INIT DIR_SCAN, FIND NEXT 
“EXTRN RESET DIR SPEC, BACRUP$_CONTINUE 
N BACKUP$_OPENIN 
0004 00000 GET_DYN_SPACE: 
.WORD Save R2 
52 0c AC 00 00002 MOVL  DST_DESC, R2 
04 Ag D5 00006 TSTL  4(R2) 
17 13 00009 BEQL 6-2 
08 ac D5 90008 TSTL § SRC_ADDR 
06 13 OO0E BEQL =s«oa1$ 
04 AC 62 01 0001 CMPL (R2), SRC_LENGTH 
O¢ 13 00014 BEQL 2s 
7E 62 7D 00016 1$ MOvO (R2) = (SP) 
000000006 00 08 FB 00019 CALLS We FREE 
62 7C 00020 CLRO 
08 AC D5 00022 28 TSTL se ” ADDR 
1¢ 13 00025 BEQL kh 
04 AC b3 00027 TSTL  SRC_LENGTH 
17 13 O002A BEQL 
04 A2 05 0002C TSTL  4(R2) 
| ihe 000¢F BNEQ 3$ 
62 04 AC DO 00031 MOVL SRC -LENGTH, (R2) 
4 AC DD 00035 PUSHL  SRC"LENG 
000000006 00 01 FB 00038 CALLS a. “CET vA 
04 = A2 50 DO 0003F MOVL 0, 4(R2) 
04 00043 3$: RET 
; Routine Size: 68 bytes, Routine Base: CODE + O0BD 
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1 
Checkpoint and Restart ihese -1984 00:18: AX-11 Bliss-32 V4.0-74 7 
COPY = copy memory to allocated space aaa 1 90:38:48 YBACKUP SRe RESTART Boe — nig 
ZSBITL_ ‘'GET_COPY = copy memory to allocated space’ 
ROUTINE GET“COPY (SRE LENGTH, SRC. ADDR, DST. DESC): NOVALUE= 


'e4 
i] 
FUNCTIONAL DESCRIPTION: 
This routine allocates dynamic memory if required and copies a 
specified area of memory to it. 


INPUT PARAMETERS: 
SRC 


LENGTH - Length of area to be copied. 
ADDR - Pointer to area to be copied. 
DST_DESC - Address of descriptor for dynamic area. 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
! ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! OUTPUT PARAMETERS: 
} NONE 

i 

i 

i 

i 

' 

i 

i 

Dynamic memory allocated. 
le 


BEGIN 
MAP 


DST_DESC: REF VECTOR; ! Pointer to descriptor 
BUILTIN - 


: Get dynamic space if required. 
CALLG(.AP, GET_DYN_SPACE); | 


If the source area exists, copy new data. 
IF .DST_DESCL1) NEQ 0 
ap, OE SAE LENE, ~SRC_ADDR, .OST_DESCL1]); 


SPR IPIPAINININIPINIPIAPINPIPINP III IAI a sk i i i a dd td dd 
m 


003¢ 00000 GET_coPY: | 
WORD 


. R3,R4,R5 : 1835 
B6 AF 6C FA 00002 CALLG T_BYN. SPACE > 1874 


a 


5. 

RESTART Reel Checkpoint and Restart 1b-sep- Sep- AX=11 Bliss-32 a3°5 Pa 18 
_Vv04-000 GET_COPY ~ copy memory tc allocated space 14-Sep 1984 99; 48: s BACKUP. SRCJREST RioB52 ” (5) | 
50 of AC D 06 MOVL DST_DESC, RO 5 1879 
| * 87 43 Oooo sear is poe 
04 = B80 08 BC 04 AC 28 0000F MOVC3 SRC_LENGTH, @SRC_ADDR, @4(RO) : 1881. 
04 00016 1$: RET 3 1882) 


|; Routine Size: 23 bytes, Routine Base: CODE + 0101 


mm 


| 
| 
| 


: Determine if a checkpoint at this time is valid. 

COM_FLAGSCCOM_DSBL_RSTRT] = .COM FLAGSCCOM_DS9L_CHKPTJ; 
IF [COM_FLAGSCCOM_DSBL_CHKPT) THEN RETURN; | 
: Checkpoint the value of QUAL_USE_COUNT in the input qualifiers blocks. 


INPU = ,QUALCQUAL_INPU_LIST); 
WHILE giNPU NEG O-b0 


BEG! 
INPUCQUAL ir CHKPT] =_.INPUCQUAL_USE_COUNT]; 
INPU = .INPUCO 


AIAN 
oo 


UAL_NEXT]; 


: Allocate a dynamic area to hold saved variables if none exists. 
if .CHKPT_VARS EQL 0 THEN CHKPT_VARS = GET_ZERO_VM(VARS_SIZE); 


K 1 
RESTART Reel Checkpoint and Restart 16-Sep-1984 00:18:1 AX-11 Bliss-32 V4.0-742 Page 19 
v04-000 REEL_CHECKPOINT = take reel checkpoint 14-Sep-19 4 iH UBACKUP. SRE RESTART .832;1 . (6). 
3 1 XSBITL "REEL CHECKPOINT = take reel checkpoint’ 
| 5 2 GLOBAL ROUTINE REEL_CHECKPOINT: NOVALUE= 
lee 
| ae 
5 8 ! FUNCTIONAL DESCRIPTION: 
re | +4 } This routine takes a checkpoint at the beginning of a reel. 
tg 91 ! INPUT PARAMETERS: 
4 3 ; NONE 
44 9 : 
45 94 ' IMPLICIT INPUTS: 
rk 95 : NONE 
4 38 : 
48 9 ' OUTPUT PARAMETERS: 
49 98 : NONE 
50 99 : 
51 00 ! IMPLICIT OUTPUTS: 
26 01 : NONE 
5 8 : 
354 0 ! ROUTINE VALUE: 
$2? 04 ; NONE 
2$ 05 : 
35 06 ! SIDE EFFECTS: 
358 07 : NONE 
4 08 : 
60 09 leo | 
361 10 
6g 11 
6 \¢ 
64 1 t. ! Cursor for CHKPT_TABLE 
303 14 INPU: REF BBLOCK, ' Cursor for input qualifiers area 
1? P: REF VECTOR; ! Cursor for dynamic area 
; 17 
18 
19 
3 
58 
3 
8 
y 
; 
iH 
8 
39 
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= take reel checkpoint 14-Sep-1984 5 


CHKPT_TABLE; 


. CHKPT_VARS; 
LE TRUE DO 
EGIN 
LOCAL 
A, ' Local copy of A byte 
8, ! Local copy of B byte 
C: REF VECTOR; !' Local copy of address 


Establish the three table parameters. 
.(.7)<0,8>; T 
T 


<0,16>; 
GLOBAL_BASE + .(.1)<0,16>; 


Ow>p---- 


Case on the action code to execute the action. 


Ase sf FROM EXIT TO SPECIAL_6 OF 


Deere 


CEXITI: 
EXITLOOP; 


Ccopy): 
P = CHSMOVE(.B, .C, .P); ! Move variable to area 


CCOProvads 
GET_COPY(.B, ..C, .P); 
P= .P + B; 
END; 


CSPECIAL 1): 
GET_COPY(.COM_I_SETCOUNT*ZUPVAL, ..C, .P); 
P= .P + 8B; 


CSPECIAL_2): 
BEGIA 


N SPACE(.COM_1_SETCOUNT*2*2UPVAL, ft, Ms 
NEQ’O 
GIN 
$Fl 


LL(O, .COM_I_SETCOUNT*2*ZUPVAL, .Q); 


RESTART 
v04-000 


m1 
Reel Checkpoint and Restart 16-Sep-19 :18: AxX-11 Bliss-32 V4.0-742 Page 21. 

| REEL_ CHECKPOINT = take reel checkpoint 127808-1382 90:18:18 YBACKUP SRE RESTART .832;1 9 6) 
E 44 1997 5§ INCR_ I FROM 0 TO .COM_I_SETCOUNT=1 DO 

13 66 1998 BEGIN 

i: 450 199 GET_COPY(.FAST_IMAP_SIZEC.1]#512, .FAST_IMAPL.1], .Q); 

3 431 000 Q=".0 + 8; 

1; 6 é 91 END; 

ls 4) § 4 END; 
> 454 003 4 P= P48; 

: 455 004 END; 

: 456 005 
: 457 006 
: 458 007 CSPECIAL_3): 

: 459 908 4 EGIN 

: 460 4 F .INPUT_FAB NEQ 0 

> 461 010 4 THEN 

: 462 011 3 BEGIN | 
> 46 gg CHSMOVE (NAMSC_BLN, INPUT_FABCFC_NAMJ, .P); | 
: 464 O13 ; CHSMOVE (NAMSC_MAXRSS, INPUT_FABLFC_RSAJ, .P + NAMSC_BLN); | 
: 466 2015 4 P = .P + NAMSC_BLN + NAMSC_MAXRSS; | 
: 467 016 END; 
: 468 017 

: 469 018 

; 470 019 CSPECIAL_4): 

; 471 020 4 BEGIN 
. ap 021 4 INCRA D FROM DIR_STACK TO DIR_STACK*D_K_NLEVELS*D_S_ENTRY-D_S_ENTRY BY D_S_ENTRY DO 

> 47 203¢ 5 BEGIN 

: 47% 2023 5 MAP D: REF BBLOCK; 

: 475 024 5 .P = .DCD_VERI; 

; 476 025 § P= p+ f; | 
3: 477 026 4 END; 
: 478 2027 END; 
3; 479 028 
: 480 2029 

+ 481 2030 3 CSPECIAL_5): 

: 48 2031 4 BEGIN 

: 48 2038 4 GET_COPY(.FAST_BUFFER_SIZE, ..C, .P); 
> 484 033 4 P =".P + 8; | 
: 485 034 END; 
: 486 035 
: 487 036 
: 488 2037 CSPECIAL_6): 
; 489 038 4 BEGIN 
: 490 2039 4 LOCAL 

: 691 2040 4 Q: REF BBLOCK, 

> 49 4) 6 R: REF BBLOCK, 

: 469 04g 4 T: REF BBLOCK; 

+ 694 04 4 

+ 695 44 6 i C00} EQL 0 THEN C[0) = cC1) = C0}; 

+ 6% 045 4 IF .PLO}) EQL THEN PCO} = PL1} = PLO); 

+ 497 046 4 UNTIL REMQUE(.PLO), T) DO 

: 4698 04 2 BEGIN 

: 699 048 FREE_VM(.TCPLC_SIZEJ, .1); 

; 500 049 4 END; 

: 201 050 4 o = .cCO); 

: 50 51 4 UNTIL .Q EQL CLO) DO 

: 50 3038 3 BEGIN 
| 04 205 R = GET_VM(.QCPLC_SIZE)); 
| 


| nN 1 | 
RESTART Reel Checkpoint and Resta 16-Se -1984 00:18: AX-11 Bliss-32 V4.0-74 Pp 
¥60-000 REEL_ CHECKPOINT - take reel checkpoint ope 1984 99:18:18 BACKUP. SRC RESTAR °aboe1 he rsa 

0S 054 CHSMOVE ( gale 1ZE], .Q, .R); 

06 be ; Ins NSQUE ( beast 

0 096 VOCeLE fF CINK: 

08 057 4 END; 

09 O98 4 P= P+ 8; 

10 05 ; 

11 060 

ig 061 

1 06¢ TES; 
214 06 END; 

15 064 
16 065 
rat 4 p28 Free previous saved machine state if required. 

319 068 IF .CHKPT_STACK NEQ 0 | 
970 FREE_VM(.CHKPT_HIGH_SP = .CHKPT_LOW_SP, .CHKPT_STACK); 
5 207 | 
524 $078 ' Check aint the machine state. Execution also continues here after a call to 
3% 207% SAVE_RESTART. 
527 2076 CHECKPOINT_MC. CHKPT_HIGH_SP, CHKPT_STACK, CHKPT_LOW_SP); 
528 2077 +1 END; 
| 
OFFC 00000 ENTRY REEL CHECKPOINT, Save R2,R3,R4,R5,R6,R7,R8,-; 1884 | 
5B 00000000' EF 9E 90002 MOVAB com I SETCOUNT R11 : 
50 FC AB 01 06 EF 00009 EXTZV aT, FLAGS. RO ; 1920 
FC AB 01 07 50 FO 90008 INSV +8 #7. ne “Con LAGS : 
01 FC AB 06 FI 90015 BBC #6, COM_FLAGS ty + 1921 
50 82 AB b9 0001B 1$: MOVL QUAL, INPU + 1926 
OA 13 OOOTF 2$: BEQL 486 3$ : 1927 
24 Ad 20 Ad 00 9021 MOVL $ 32C¢INPU), 36(INPU) + 1929 
50 60 DO 00026 MOVL CINPU), INPU + 1930 
F4 11 00029 BRB 2$ : 1927 
O1FA cB D5 99 B 3$ TSTL | CHKPT_VARS : 1936 
11 12 0002F BNEQ 4$ ; 
§ 0356 «8F 3C 99 1 OVZWL #854 ; 
000000006 0 1 FS 6 CALLS i. eT FERO vM ; 
O1FA 0 p 0030 MOVL 0; CHKPT VARS : | 
5 FEA2 CF F 0 Ae 4$: MOVAB CHEPT™ ce. T : 1941 
7 O1FA 8 004 MOVL  CHKPT“VARS, P : 194¢ 
32 A 0004C 5$: MOVZBL (T)+,7A + 195 
1 9 3 0 4f MOV2WL (T)+. B 3 1994, 
0 FE36 «= CBOE g OV GLOBAL_BASE, RO : 1955 | 
8 9 3C 000 MOVZWL (T)+, C ; 
é : CO 0005A ADDL2 RO, f ; 
08 09 CF 6 D CASEL A, #0, #8 + 1960 | 
$08 $098 SO7A OAs) ca rt Ea 
00C2 00071 8$-6$,- ; 


Ax-11 Ol iegeze V4.0-742 
SRC JRESTART.B32;1 


BACKUP. 


i 


oint and Restart 


Reel checks 
REEL CHECKPOINT = take reel checkpoint 


RESTART 
“VOe-000 


Wo wT _ _ ~ o orm UMNO SY dd ow 
ono ~ [. «} oo o o FOS -n—n ON on om 
oe - = — -—— - - NNN Cute wun om 
i i ie hn i a i in i i i i et i i ie ie i i i et ee eh eh eh eh dh a A a a ea a 
~~ 
a 
”" 
~~ 
a 
— 
=” 
~ — 
So uw oN 
~ Lee) a 
Oo Oo oS La) ~N ~ 
wv oS ” an <= (ve) 
= . « > = . q ~ ~ 
_ —- a _- - a . . —_ 
2-~ 2nn 2 x mt oO _— o-vr ” 
>a —>a._t a & oo “=> <c -wo ew ‘ 
~ ow ou2z o = oO we oa w a 
a vw vwwe> Vv =) a0. oO A >: <e~an + + (ve) 
~ | a | -'a lo :_ - «ew w | ~o <~z~ “oO ae 
seene w [vU) i wea w Zuwie moo -+ ww a on 
@# sees i w” s “nko MW a Ww “ice ou wWinn~ <aet ~~ + — | 
MPAAMAAA — i=) mow ow t [ ve) . LE ed ed ~ wo 
“oououonuo ~~ —o aE + Sew ee -@Ccvo0co~— - = WW one v 
or ~ t t ~ t t w  ] Led (: ace = 
EAAAHAW be ~ PA AZ PM HAE + OQME +s FRM ~ss ss MAROON HEZHOAY HH AYN 
A—TOSONUNSO MRA LY FCO VLYONO LOMM~ ODO OFM LOMOM—ZNAOnined=--0~O *~O wa 
Geren VUNVNOEMA~O- A~YRWOA~VRRETINYLRBSR CB CGB Be#owrie -BVIMVNOOR TOOK wA~u 
| —_ ad = ” 
Ye FET FINS TINIAN NO TT IU —<aiu0 tr. 
Br POM MKY STIS IsI>SSoOrs> PwOVKTICOOrS>Oo> > ror ror rawonnnm 
fGoodc D,D2a255>0M%E2 550M a Owo3d0 PES e Eee eee ee ee See seeoasace 
@OtFMAACAAMAAZTKAMAATIYEOSESTE FTEMAAKCVACAOSOEIELOLLOLZ&I OMac.a 
oo PL a fA a od fA Sed 
he hh Rad o- N m wT w oOo ~ oo o 
~~ t+] Le. -—— - r--e - - - - - 
MOT Ow KM. CO Owowr Pee bo PTF arta pe Ay tb tet pee ab irae Ae At — pli ld 
RPP ODODDDDOOOOOO Se eee COODOMOMOODYVV AOOOOwWwe wus OOCCeK ee — 
oooo OOCCCOCOCOCCOCOOOCOCOCSOSOOOOCOOOCOOOOOOOO polo lo lo lo lo lo lololololo) 


oO 
SSSSSSSSSSSSSssseseossoesooeseoesssessesesssssesessess 
OO O00 OO40- CO 40OOM42STVU aw COD DOWN - OCMOOWR WwW OW @O- O00 
MNO OOO AOC MOAGORLOKOUN CVRK- ABR VE K— ORK NNO OO OC On-- OBR 


Wer MI OFR- Oe MP- CO MOCVUP-F- CO OMIM O DDOO Oe OOOO Oe & oh OODDOOOM~srh-cO@ 
COMMUN ONO O DODNOOOO ZF. OOO OVO RK NnTOOOWMS 2 DOR. VVO Tau OMDOY 
- 


Oo @ 
Oo So a 
w N w Ouuw ww wv oO 
i] ve TF Ounmn oo ow @ 
- oon MW _ 
o ooo oo o 
cor. oo oonw7o COw Mr ~wesonm © OOF SCO- FO 
own ww MWMmoWwW WAwo WW —— Ww ewom ww du 
a 
o wr wv 
o ao- aon 
“ em om 
“ ou oo 
~ wd uw oO w ~o ne 
Oo ~ ~ So ~ w oc 
Oo 
~o 


50 


castes sveneaetesenensintieeiiipemses sarees gtpvessedehasiemeesensiegeaimenadegpnca iretennamainesaisanicaneinaseesemasiantoetacicbiniaieanistetedientiadaateapmenaniinitenin 


aa 2 
RESTART Reel Checkpoint and Restart 1h-s6 =1984 :18: AX-11 Bliss-32 Vv4.0-742 Page 24 
yO. 000 REEL_ CHECKPOINT = take reel checkpoint 1e-8ep-19 4 90:38:58 YBACKUP  SRe RESTART.B32;1 . (3 
FEC sOCF F 11€ 208: CALLS #3, GET_COPY : 
g rf a at BRB oe = : 2038 
D5 001 2$ STL (C) + 2044 
12 001 BNEG 23$ : 
04 ag 8 DO 001 MOVL C, 4(C) : 
6 : DO 00128 MOVL =e «€,.:«CC) : 
DS GO12E 238 TSTL (P) + 2045 
a 1 BNEG 26$ : 
04 A7 7 OD 1 MOVL P, 4(P) 3 
gf 7 00 001 MOVL P, (P) : 
2 00 87 OF 00139 248 REMQUE (P), T + 2046 
F 1D 00130 BVS ; 8 : 
DD 0013F PUSHL : 2048 
7E 09 A2 9A 00141 MOVZBL 9(T), =(SP) : 
000000006 00 02 FB 00145 CALLS #2, FREE_VM : 
EB 11 9014¢ BRB 24$ + 2046 
56 68 D0 0014E 358: MOVL (C), @ : 2050 
58 56 D1 00151 26$: cMPL a, € > 2051 
1F 13 00154 BEQL ets : 
7E 09 A6 OA 90136 MOVZBL 9(Q), =(SP) : 2053 
000000006 00 01 FB OO15A CALLS #1, GET_VM ; 
SA 50 00 00161 MOVL RO, R F 
50 09 A6 9A 00164 mOVZBL 914), RO > 2054 
6A 66 50 8 00168 MOVC RO, <Q), (R) : 
046 87 6A 0016¢ INSQUE (RS, a4(P) : 2055 
56 66 DO 001 9 MOVL (Q), Q : 2056 
DC 11 0017 BRB 26$ > 2051 
57 08 £0 00175 273: ADDL2 #8, P : 2058 
FED! 31 00178 8s: BRW 5 t 1943 
50 O1F6 cB 44 00178 29$: MOVL — RO ; 2068 
11 13 00180 BEQL 0$ ; 
50 Dp 00182 PUSHL RO : 2070 
7E O1EE CB O1F2 CB C3 001 SUBL3 CHKPT_LOW_SP, CHKPT_HIGH_SP, -(SP) : 
000000006 00 02 FB 0018¢ CALLS #2, FREE 0M F 
O1F2 CB 9F 00193 30S: PUSHAB CHKPT_LOQ_SP : 2076 
O1F6 CB 9F 00197 PUSHAB CHKPT_STACK : 
O1EE CB DD 00198 PUSHL  CHKPT HIGH SP : 
000000006 00 03 FB 0019F CALLS #3, CRECKPOINT_M : 
04 001A6 RET + 2077 


; Routine Size: 423 bytes, Routine Base: CODE + 0118 
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BSHVSOARAY=[SSOS 
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orhge 1 
COPY = restore saved copy of memory 1 
y 


2 
-$ep-1984 00:18: AX-11 Bliss- 
grSeen8e Q0:18:18  YANCHT BLisgc3 
ZSBITL *RESTORE_COPY = restore saved cop of memory’ 

ROUTINE RESTORE COPY(SRC_DESC ,DST_LENGT /DST_PTR ADDR) : NOVALUE= 


tee 


1 
FUNCTIONAL DESCRIPTION: 
This routine restores a saved copy of dynamic memory. 


INPUT PARAMETERS: : 
SRC_DESC - Address of descriptor for dynamic area. 
DST_LENGTH = Length of area to be copied. 
DST_PTR_ADDR - Pointer to pointer to area to be restored. 


IMPLICIT INPUTS: 
NONE 


int and Restart 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Dynamic memory allocated. 


SRC_DESC: REF VECTOR; ! Pointer to descriptor 


! Provided it exists, free the old copy of the dynamic area if it is the wrong 
size or if there is no source data. 


.»DST_PTR_ADDR NEQ 0 AND 
yi SRCDESTET I EQL 0 OR .SRC_DESCCLO] NEQ .DST_LENGTH) 


LENGTH, ..DST_PTR_ADDR); 


DST 
ADDR ; 

: If the source area exists, copy new data. 

IF .SRC_DESCL1) NEQ 0 

THEN 

BEGIN 

Allocate a dynamic area if none currently exists. 

if .-DST_PTR_ADDR EQL 0 THEN .DST_PTR_ADDR = GET_VM(.SRC_DESC(O)); 


ent Soe) age 63 


283 


; Routine Size: 


2 
Reel Checkpoint and Restart 1hes6 -1984 218: AX-11 Blis 
RESTORE _COPY = restore saved copy of memory 12-80 0-1 38 99:38:08 BACKUP. SRC 
135 
1% 
: } Restore the data. 
135 CHSMOVE(.SRC_DESCCOJ, .SRC_DESCC1], ..DST_PTR_ADDR); 
141 END; 
003C 00000 RESTORE_COPY: 
eWORD Save R2,R3,R4,R5 
53 OC AC 00 00002 MOVL  DST_PTR_ADDR, R3 
63 D $44 TSTL (R3) 
1D 13 0000 BEQL 2$ 
50 04 AC DO QOO0A MOVL SRC_DESC, RO 
04 AO 05 QOO0OE TSTL 4(R0) 
06 13 00011 BEQL 1$ 
08 AC 60 D1 00013 CMPL (RO), DST_LENGTH 
OE 13 00017 BEQL 2$ 
63 0D 00019 1$: PUSHL (R3) 
08 AC ODD 00018 PUSHL DST_LENGTH 
00000000G 00 02 FB OOOIE CALLS #2, FREE_VM 
63 D4 00025 CLRL = (RB) 
52 04 ac OD Bo8 *6 2$: MOVL SRC_DESC, R2 
04 . % 00 8 TSTL 4(R2) 
8 Boog BEQL 4$ 
63 05 00030 TSTL (R3) 
0c 12 00032 BNEQ 3$ 
62 OD ten PUSHL (R2) 
000000006 09 01 FB 00036 CALLS #1, GET_VM 
6 50 : BR828 MOVL 0, (R 
00 83 04 62 0040 3$ MOVC3 (R2), a4(R2), a0(R3) 
4 00046 4$ RET 


71 bytes, Routine Base: CODE + O2BF 


Pe Se Se Se Se Se Se Be Be Be Ge Se Se Se Be Fe Se Fe Se Se Be Se Be 


roe 


F 2 
RESTART Reel Checkpoint and Restart 16-Sep-1984 00:18: AX-11 Bliss-32 V4.0-742 Page 27 
v02-000 SAVE RESTART - restart from last checkpoint 12286871388 99:18:18 BACKUP. SROIRESTART 83251 ’ Bs 
; $93 138 1 ZSBITL "SAVE RESTART = restart from last checkpoint’ 
; 38 re ! GLOBAL ROUTINE SAVE_RESTART: NOVALUE= 
Be HG yi 
: 600 123 1 | FUNCTIONAL DESCRIPTION: 
: pet 168 ; } This routine restarts from the last checkpoint. 
: 60 150 1 | INPUT PARAMETERS: 
Bm HT ee 
; 606 138 1 IMPLICIT INPUTS: 
: O08 13g fi =e 
> 609 156 3 i OUTPUT PARAMETERS: 
: gif 188 1 | _ 
; 61g 159 1! IMPLICIT OUTPUTS: 
ee i 
> 615 168 1 ' ROUTINE VALUE: 
gear 8 | Pete 
: 618 165 1 | SIDE EFFECTS: 
: 619 166 1! NONE 
; 620 167 1! 
eo be i 
: 6 : 170 2 BEGIN 
: 624 171 LOCAL 
; 625 76 STATUS, ! Status variable 
: 626 17 - ' Cursor for CHKPT_TABLE 
3: 627 2174 P: REF BBLOCK, ' Cursor for dynamic area 
; 628 175 SAVE_PROC_LIST: REF BBLOCK, ! Save for INPUT_PROC_LIST 
3 oe? 17 SAVE_D_VER: REF VECTOR; ! Pointer to saved D_VER values 
: 631 178 2 EXTERNAL ROUTINE 
3 o%¢ 179 STA_DISMOUNT; ! Dismount volume via stand-alone ACP 
: 83 181 
: 633 186 : Restore the value of QUAL_USE_COUNT in the input qualifiers blocks. 
3 637 184 2 P = .QUALCQUAL_INPU_LIST); 
4 638 19? WHILE .P NEQ 0 DO 
3; 639 186 N 
3; 640 187 PCQUAL_USE Count? = .PCQUAL_USE_CHKPT); 
3; 641 188 P=, TQUAC_NEXT ; 
£808 150 ' 
: 644 191 QUALCQUAL_COMP) = 0; 
; one 198 : Wait on all pending 1/0's. Reattach all buffers to the free List. 
: 648 195 UNTIL REMQUE(.INPUT_WAITCO], P) DO 
: 650 199 PraCe FAIL ACT} - 0: 
3; 651 198 PCBCB_SUCC_ACT) = 0; 


2 
RESTART Reel Checkpoint and Restart 18-56 -1984 00:18: Ax-11 Bi fog =32 v4.0-742 Page 28 
v04-000 SAVE RESTART = restart from last checkpoint 12-8087 38 99:38:08 BACKUP. SRC} RESTART .B32;1 ° BS 
3 63¢ 199 WAIT(.P); 
: 6 ? 99 FREE BUFFER(.P);: 
; 695 0¢ UNTIL REMQUE(.REREAD_WAITLOJ, P) DO 
: £28 04 Praca FAIL At} = 0: 
; 658 5 PCBCB-SUCC-ACT 
; 659 96 WAIT(7P); 
; 660 44 FREE. BUFFER(.P); 
: 66¢ 99 UNTIL REMQUE(.OUTPUT_WAITCOJ, P) DO 
3 664 11 rte FAIL_ACT] = 0; 
3; 665 i PCBCB~ suce “ACTJ = 0; 
3 666 1 WAIT(7P); 
: 667 14 FREE “aur eERC. P); 
3 668 15 END 
3 669 16 
; 670 1 
3 67) \8 } Deal with buffers that do not have 1/0 pending. 
3 o7? ; ’ UNTIL REMQUE ( -RWSV_HOLD_LISTCOI, P) dO 
; 675 j FREE_BUFFER(.P); 
: 676 2 END; 
3; 677 224 IF .RWSV_XOR_BCB NEQ 0 
; 678 225 THEN 
3; 679 326 BEGIN 
3 680 2 FREE -BUFFER( .RWSV_XOR_BCB) ; 
; 681 228 ous Ve XOR_BCB = 0;~ 
3; «468 229 END 
; 68 5$0 5 IF . COMPARE _BCB NEQ 0 
: 684 1 THEN 
3 685 é BEGIN 
3; 686 FREE BUFFER(.COMPARE_BCB); 
3: 687 4 COMPARE_BCB = 0; 
3; 688 HH END; 
3; 689 6 IF .INPUT_BCB NEQ 0 
3 690 THEN 
: 691 8 BEGIN 
3; 69 3 9 FREE_BUFFER(, INPUT_BCB); 
3; (69 40 INPUT_BCB = 0; 
> 694 41 END 
: 695 4g IF “OUTPUT _BCB NEQ 0 
: 696 4 THEN 
: 697 44 BEGIN 
3; 698 45 FREE BUFFER(. OUTPUT_BCB); 
: 699 46 OUTPOT_BCB = 0; 
: 700 4 PND. 
3; 701 $8 
: 70 4 
; 70 29 ! Deassign channels. 
3 oe 5 Close save set if open as a file. 
: 706 2g if .QUALCQUAL_SS_FILE) 
; 70 54 THEN 
; 708 55 BEGIN 


H 2 
RESTART Reel Checkpoint and Restart 16-Sep-1984 :18: AX-11 Bliss-32 v4.0-742 Page 29 
vOe-000 SAVE RESTART - restart from last checkpoint 1228081384 99:28:18 BACKUP. SRCIRESTART B32: 1 ° B 
; 708 § If «-RWSV_SAVE_FAB NEQ 0 THEN IF .RWSV_SAVE_FABCFABSW_IFIJ NEQ 0 
; re < : SCLOSE (FAB=.RWSV_SAVE_FAB); 
: 71 
: re é} Deassign save set channel. 
; £16 8g ELSE 
: 71 64 BEGIN 
; 18 69 TF ;RWSV_CHAN NEQ 0 
: 720 89 4 BEGIN 
: 721 65 4 IF .RWSV_CHAN LSSU 1°16 
: 7 : $9 4 THEN 
; 7 0 BEGIN 
: 724 71 SDASSGN(CHAN=.RWSV_CHAN); 
3 4 2 i RWSV_CHAN = 0; 
> 727 7% 
3 ree 278 : : Close file and dismount volume if save set is open via stand-alone ACP. 
A ORE me 
; 13 79 2 IF .RWSV_CHAN EQL STA_IN_CHAN 
: 73 80 THEN CURRENT_MTL = .IRPUT MTL 
; 734 B81 § ELSE CURRENT-MTL = .OUTPUT_MITL; 
: 735 Pp be § S$QI0W (CHAN™= .RWSV_CHAN 
: 136 P e283 3 FUNC = i0$_DEACCESs 
: 738 g85 3 STA_DISMOUNT (.RWSV_VOL_NUMBER) ; 
: 739 86 é END? 
; 0 $58 ~: 
> 74 389 IF .INPUT_CHAN NEQ 0 
: og Mein 
> 745 P 334 $0] 0W¢ 
: 746 P 229 FUNC=10$_DEACCESS, 
: 747 294 CHAN=. INPUT CHAN); 
: 74 95 SDASSGN(CHAN=. INPUT_CHAN) ; 
2 HE Bgulou = 6 
; 231 38 1 _,OUTPUT_CHAN NEQ 0 
ot 
: 755 P 08 FUNC=10$_DEACCESS 
; 756 0 CHAN=.OUTPUT_CHANS; 
3; 75 04 SDASSGN(CHANS . GUTPUT CHAN) ; 
: 758 5 OUTPUT_CHAN = 0; 
eet 0 oe 
: 761 08 
3 % 19 Save globals prior to restoration. 
> 764 11. 2 SAVE_PROC_LIST = .INPUT_PROC_LIST; 
> 765 12 


po ea oe eee ee ee oe 


2 
Checkpoint and Restart 1b-se -1984 00:18: AX=11 Bliss-32 V4.0-7 
RESTART = restart from last checkpoint 1 =300n 138% 99:28:18 BACKUP. SRC RESTART .B3 


h Pa 0 
E ef 
Interpret the table to restore global storage. 
T = CHKPT_ TABLE; 
P = ,CHKPT_VARS; 
WHILE TRUE DO 
BEGIN 
LOCAL 
4 
4 
| 
4 
4 
| 
4 
4 
| 
4 
4 


A, !' Local copy of A byte 
8, ' Local copy of B byte 
C: REF VECTOR; ' Local copy of address 


! Establish the three table parameters. 
A= .(.1)<0,8>; T 


' 
{ 
A 
B = .(.7)<0,16>; T 
C = GLOBAL_BASE'+ .(.T)<0,16>; T 


T+ 
-T + 
oT ¢ 


3 
Case on the action code to execute the action. 
CASE =A FROM EXIT TO SPECIAL_6 OF 


NOUN OOO NOV EWN" OOONOUEWw Mm 


WWWIAWAWINIATORIPUNIPOPUNUPUNII SS SoD 


38 

39 CEXITI: 

40 EXITLOOP; 
41 

2g 

4 CCOPY): 

44 


P+ 
END; 


BEGIN 
CHSMOVE(.B, .P, .C); ! Move area to variable 
P=, -B; ! Update pointer 


Sl ee al 


CCOPYDYN): 
BEGIN 
RESTORE _COPY(.P, .B, .C); 
P = .P F 8; 
END; 


KARGVOS 
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BEGIN 
INCR I] FROM 1 TO .COM_I_SETCOUNT DO 


oor 


eee ee 


2 
Reel Checkpoint and Restart 1b-se -1984 00:18: AX-11 Bliss-32 V4.0-742 Page 31 
SAVE RESTART = restart from last checkpoint 1 730071383 90:38:18 EBACKUP.SRe RESTART.832;1 . (a) 
: 823 7 BEGIN 
; 8 4 rt é IF .FAST_IMAPC.1-1] NEQ 0 
; : $ 7 FREE_VM(.FAST_IMAP_SIZEC.1-1] * 512, .FAST_IMAPL.1-1)); 
: 828 75 FREE_VM(.COM_I_SETCOUNT*ZUPVAL, .FAST_IMAP); 
Ro ABE lagi 
; H 1 28 4 IF .PCDSCS$A_POINTER] NEQ 0 
; 8 g 79 4 THEN 
; 8 80 BEGIN LOCAL Q; 
: 834 81 IF .FAST_IMAP EQL 0 
; 835 Be THEN 
; 836 83 6 BEGIN 
: 8 7 8 FAST IMAP = GET_ZERO_VM(.PLOSC$W_LENGTHJ/2); 
; $39 Be Q = .PLOSCSA_POINTER); 
3 B40 87 2 INCR I FROM T TO .COM_I_SETCOUNT DO 
; B42 89 6 RESTORE _COPY( 
; 84 90 6 ‘ 
: B44 391 7 CIF .FAST_IMAP_SIZE EQL 0 
3 B45 39¢ ? THEN 
> B46 393 6 ELSE .FAST_IMAP_SIZEL.1-1)), 
> 847 394 6 AST_IMAPL.1-13); 
3; 848 395 3 = .Q + 8; 
3; 849 396 END; 
; 850 397 4 END; 
: 891 398 4 P= .P +8; 
: 3 99 END; 
3 85 400 
: 854 401 
; 855 g40¢ 
; 896 240 
; 85 404 CSPECIAL_3): 
; 858 405 4 
; 859 406 4 IF .INPUT_FAB NEQ 0 
; 860 407 4 THEN 
; 861 408 5 BEGIN 
; 862 409 3 CHSMOVE(NAM$C_BLN, .P, INPUT_FABLFC_NAM]); 
; 863 410 ; CHSMOVE (NAMSC“MAKRSS, .P + NAMSC_BLN, INPUT_FABLFC_RSA); 
; 865 aig 4 = .P + NAMSC_BLN + NAMSC_MAXRSS; 
; £66 41 END; 
3 414 
3 415 
: 869 416 CSPECIAL_4): 
: 870 417 4 BEGIN 
+ 871 418 4 SAVE_D_VER = .P; 
: re 419 4 P = [P™+ D_K_NLEVELS*ZUPVAL; 
: 7 420 END; 
3 74 421 
; 875 4 § 
; %6 4 CSPECIAL_5): 
: 87 424 4 BEGIN 
+ 878 425 & RESTORE _COPY(.P, .FAST_BUFFER_SIZE, .C); 
> 879 426 4 P= .P? B; 


16 “6 
RESTART Reel Checkpoint and Restart ep-1 AX-11 Bliss-32 V4.0-742 Page 32 
v04-000 SAVE _RESTA ART - restart from last checkpoint eat 99: 48: 48 BACKUP. SRC RESTAR -832;1 ° (BS 

80 427 END; 

Ht 259 
Hd 430 CSPECIAL_6]: 
884 431 BEGIN 

5 4 ¢ LOCAL 
4 Q: REF BBLOCK, 

8 434 R: REF BBLOCK, 
888 435 T: REF BBLOCK; 
889 4 : MAP 
24 : P: REF VECTOR; 
89 4 i sk EQL THEN C(O) = = 3 
89 440 IF Efe EQL THEN gfe | = gf ; = gto ii 
Ha 441 UNTIL REMQUE(.CCOJ], T) DO 

95 ttg BEGIN 
8 44 FREE_VM(.TCPLC_SIZEJ, .1); 
89 444 Ene 
898 45 a = PCO); 
899 446 UNTIL .Q EQL PLO? 00 
900 447 BEGIN 
901 4 R = GET_VM(.QCPLC_SIZE]); 
90 4 CHSMGVET OLAL¢ size » wGy omit 
90 4 INSQUE(.R, .CCTI); 
904 4 Q = .OCPLC_FLINK); 
905 4 END; 

P= .P + 8; 
END; 


Reassign channels. 
if .INPUT_CHAN NEQ 0 
THEN 


PMOPIMINMOPONONONG! 
at tt ee 
AOAKO 
rs _ 


BEGIN 
rus © RESIGN INPUT CHANNEL (INPUT QUAL COUAL DEV_DESCI, INPUT_CHAN, 0, 0); 


E 
FILEE 
BACKUPS age + STSSK_SEVERE, 


~ STATUS); 
END; 
Prune INPUT_PROC_LIST back to its prior state. 
WHILE .SAVE_PROC_LIST NEQ .INPUT_PROC_LIST DO 
BEGIN 
LOCAL 


TRUIRIRQ Aa SO 
SSN WM HO OONOE WR 


a 
wm 


Be Ge Se Ge Ge Se Ge Be Se Se Ge Ge Ge Se Fs Fe Ge Fe Se Ge Ge Be Gs Ge Ge Ge Ge Ge Gs Ge Ge Ge Se Se SH Ge Se Se Se Se Se Ge G+ 4 SH Ss Se Ss Ss Se Se Sse Se Se Ss beg 
> >"> “J 
Soe 
on 
= RRERRERREREEE = 
MUM MMIWIUTUUIUT & 
OWONAOUL WIN OO 


DODO OOOODOODODOODOOOOOVOOOOOOOO 
RIPIPONININININININININNINPIPININY 
GoG00000 VI OOO 


on 


T = ,SAVE_PROC_LIST; 


2 
RESTART Reel Checkpoint and Restart 1b. Sep-1984 218: VAX-11 Bliss-32 V4.0-742 P 3 
yO. -000 SAVE_RESTART = restart from last checkpoint 12-80-1884 90:38:18 ‘CBACKUP. SRCIR RESTART .B32;1 i (a) 
; 937 484 SAVE_PROC_LIST = .SAVE_PROC_LISTCREC_NEXTJ; 
: 334 48S FREE VACREC. § UENTRY, <1); 
: 3i8 rh tng 
> 941 4 
: oe iss Restart file scan. 
; 491 2 IF NOT .QUALCQUAL PHYS) THEN 
3 945 49¢ IF .INPUT_NAM NEQ~ 
> 9% 49 IF_.INPUT-NAMCNAMSB RSL NEQ 0 
: Ode 43s § eMac 
> 949 49 IF INPUT _NAMCNAMSB_DIR3 NEQ 2 
; 950 49 THEN 
ee ch 
; 338 500 4 RSA: VECTOREWAMSC MAKRSS BYTE, ' Copy of filename 
: 328 22) ? DESC: ECcTO ; ' Fi name descriptor 
: 956 208 4 FREE_DIR_DATA() 
; 957 504 4 Desc D) = - INPUT _NAMCNAMS$B_RSLJ; 
; 958 505 4 DESCEI 
: 959 506 4 CHSMOVE (. -pescto3,  INPUT_NAMCNAMSL_RSAJ, RSA); 
; 960 3307 4 INIT_DIR_SCAN 
3 + sone é -{NeOT_C CHAN, 
; 308 510 4 iAPuY TaUALCQUAL _DEV_DESC), 
: 3ee 31> pest G 
: 966 218 4 .FAST_RVN 
3; 967 514 4 ~SAVE~D_VER); 
; 968 315 ‘ IF NOT FIRD“NEXT() 
: 970 3517 5 BEGIN 
: 971 518 5 INPUT_NAMCNAM$B RSL = .DESCLOI; 
3; 97 519 é CHSMOUEC DESCLOT fridneetny NAMCNAMSL _RSA)); 
; 97 520 COM PLAGSCCOM FAIL R RUE; 
: 974 3 1 ; CHKPT _STATUS = $s$7 statis re 
: 976 5 5 4 RESET Pin. SPEC( 
: 977 524 4 IRPUT"QUALCQUAL EXP_DESC1, 
: 978 525 4 OUALCQUAL IMAG]); 
. ce : 
> 981 8 
; 98 529 ! If necessary _rewaccoss the file that was accessed at the end of the 
3 + 2 ? previous ree 
: 985 ; 
; 986 3 § . INPUT FLAGSCINPUT PEN] AND 
; 98 534 NOT .QODALCQUAL_VERT) AN 
; 988 3 5 i NOT .COM_ EROS tLON. FAIL_RSTRTJ 
; 390 5 $ 4 BEGIN 
: 991 538 4 LOCAL 
: 99¢ 539 4 FIB: BBLOCKEF IBSC_LENGTH), ' FIB 
; 99 540 4 FIB_DESC: VECTORC2), Descriptor for FIB 


M 2 
RESTART Reel Checkpoint and Restart 16-Sep-1984 00:18: AX-11 Bliss-32 V4.0-742 Page 34 
-000 SAVE RESTART = restart from Last checkpoint 137308- 1384 99:08:19 BACKUP. SRCIR RESTAR RT.B32;1 . (8) 
> 994 41 4 10SB: VECTORC4,WORDJ; ! 1/0 status block 
Bo BY 
3 399 44 4 CHSFILL (0, FIBSC_LENGTH, FIB); 
: 998 245 4 FIBCFISSL_ACCTL = FIBSMNOWRITE OR FIBSM_NOREC 
; 999 re 4 IF .IN yi. FLAGS INPUT_IGRO INTE] THEN FIBCFIB L ORETLI = FIBSM_NOLOCK OR F IBSM_NORECORD; 
; 1000 547 4 FIBCFIBSW-FID_NUM] = TINPUT_NAMCNAMSW_FID_NUM : 
3; 1001 a8 4 FIBLFIBSW_FiD-SEQ) = .INPUT-NAMCNAMSW_FID-SEQ : 
3 i 49 4 FIBCFIBSW-FID-RVN) = 2 INPUT. “NAMCNAMSW_FID-RVNJ; 
; 100 550 4 FIB ~DESthg, ="F IBSC_LENGTH; 
3 1004 22) 4 FIB-DESCLIJ = FIB; 
; 1005 P 26 4 STATUS = $QJ0W( 
3; 1006 P 2555 4 FUNC=I10$ OF ERA OR IOSM_ACCESS, 
3 oer P 2554 4 CHAN=. INPUT_CHAN, 
3; 100 P 2555 4 10S8=10S8 
> 1009 336 4 Pi=F 1B DESC); 
: 1010 557 4 IF . STATUS THEN ératus = .10$8(0); 
3 1011 558 4 IF NOT .STATUS 
3 ION¢ 228 4 THEN 
3 101 560 5 BEGIN 
3 1014 561 5 COM_FLAGSCCOM_FAIL lin TRUE; 
3 1015 ae¢ 5 CHKPT STATUS = .STATU 
3 1016 563 4 END; 
3 1017 564 3 END; 
: 1018 565 END; 
3 1019 566 
3: 1020 567 f 
3; 1021 568 ! Restart from the saved machine state. Execution continues in routine 
3 1056 4 REEL_CHECKPOINT. 
3 1024 2371 RESTART_M(. CHKPT_LOW_SP, .CHKPT_HIGH_SP, CHKPT_STACK); 
: 1025 572 1 END; 


.EXTRN STA_DISMOUNT, SYSSCLOSE 
SEXTRN SYSSDASSGN, STA_QIOW 
“EXTRN SYS$Q10W 
OFFC 00000 ENTRY SAVE ,RESTART, Save R2.R3.R4.R5.R6,.R7.RB.R9.-; 2143 
5E FEF CE 9€ 0000 MOVAB -268(SP), SP ; 
56 00000000' FF DO 0000 MOVL QUAL, P > 2184 
A 1 900 1$: BEQL ¢3 > 2185 
20 Ab 24 Ab D MOVL 6(P), 32¢P) + 2187 
56 66 06 001 MOVL (P), P ; 2188 
F4 0018 BRB 1$ + 2185 
00000000° Ef 80 BF 8A OOOIA a: BICB2 #128, QUAL+8 > 2191 
6 00000000' FF F 0 2 $: REMQUE Mir. “WAIT, P ; 2195 
20 Ab 7C 6 B CLRQ = 32¢P) : 2198 
é DD PUSHL P > 2199 
000000006 00 FB CALLS #1, WAIT ; 
000000006 00 ; pe 9 CALS 1 FREE_BUFFER b 2200 
EO if 046 BRB 34 ° : 2195 
56 00000000" FF OF 00042 4$: REMQUE @REREAD_WAIT, P > 2202 


N 2 
RESTART Reel Checkpoint and Restart 16-Sep-1984 :18: Ax-11 Bliss-32 V4.0-742 P 5 
vO2~000 SAVE RESTART - restart from last checkpoint 127808- 1386 99:38:18 BACKUP. SRCIRESTART 83251 _ (B) 
17 1D 00049 BVS ; | 
"hoy Bh pen 8 
000000006 00 1 FB 6 CALLS #1, WAIT : 
6 DD PUSHL P + 2207. 
000000006 00 1 FB 9 CALLS #1, FREE_BUFFER : | 
E0 1 6 RB 4 : 3202, 
56 00000000' FF oF 62 5%: REMQUE @OUTPUT_WAIT, P + 2209 | 
17 1D 0006 BVS $$ : 
20 AB 7C 068 CLRO (P) : 321 
56 0D 6 PUSHL P : 221 
000000006 00 Qi FB 0 CALLS #1, WAIT : 
6 DD 0007 PUSHL P + 2214 
000000006 00 01 FB 00079 CALLS #1, FREE_BUFFER : 
EO 11 000 RB 5$ + 2209 
56 00000000' FF OF 008 6$: REMQUE QRWSV_HOLD_LIST, P + 2220 
08 1D 000 VS 4 : 
6 DD 00088 PUSHL P + 2222) 
000000006 00 01 FB 008D CALLS #1, FREE_BUFFER : 
EC 11 00094 BRB 64 ; 2220 
50 00000000' EF 09 0096 7$: MOVL § RWSV_XOR_BCB, RO + 2224 | 
F 13 0009D BEQL 8$ ; 
0 DD 0009F PUSHL R + 2227 
000000006 00 01 FB OO0A1 CALLS #1, FREE_BUFFER : 
00000000' EF D4 000A8 CLRL RWSV_XOR™BCB 3 2228) 
50 00000000° a 00 OOAE 8$: MOVL COMPARE CB, RO + 2230) 
50 oD 00087 PUSHL RO : 2233) 
000000006 00 01 FB 000B9 CALLS #1, FREE BUFFER ; 
00000000' EF D4 000C0 CLRL COMPARE 6CB > 2234) 
50 00000000° ai b9 000C6 9$: MOVL INPUT _BCB, RO + 2236) 
F 13 O00CD BEQL Os ; 
50 DD OO0CF PUSHL R : 2239 
000000006 00 01 FB 00001 CALLS #1, FREE_BUFFER ; 
00000000" EF 04 00008 CLRL ‘INPUT BCE : 2240 
50 00000000" EF 00 OODE 10$: MOVL  OUTPUT_BCB, RO + 2242 
OF 13 OO0E BEQL 11$ ; 
30 DD 000E7 PUSHL RO > 2245 
000000006 00 1 FB 000E9 CALLS #1, FREE_BUFFER ; 
00000000' cf D4 000FO CLAL out ; 246 
19 00000000" EF 3 £1 000F6 11%: BBC #3, QUAL+15, 12$ 3 225 
0 00000000° ai D OOrE MOVL § RWSV_SAVE_FAB, RO > 2256 
8 13 0010 BEQL ; | 
02 a0 8 107 TSTW (RO) ; 
7 10A BEQL 68 3 | 
50 od 0010C PUSHL RO > 2258. 
000000006 00 01 Fe 1 CALLS #1, SYSSCLOSE ; 
68 1 11 BRB 1 : 3353 | 
52 00000000' i ig 1 12$: MOV RUSV_CHAN, R2 3 226 
00010000 = 8F é b 1 " CMPL R2, #65536 > 2268 
11 1€ 001 BGEQU «13 ; 
32 DD 00129 PUSHL R > 2271 
000000006 00 FB 001 CALLS #1, SYSS$DASSGN ; | 
00000000° EF bs 1 CLRL = RWSV_CHAN ; a7 
45 11 001 BRB 1g 3 6 
QOOIFFFF © 8F 52 01 0013A 138:  CMPL 2, #131071 : 2279 | 
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ec point and Restart 
SAVE_RESTART = restart from last checkpoint 
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28 00000000' FE 
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00000000' 
54 00000000" 


50 csacsaent + thé 
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00000000'FF 


00000000° 


00000000' 
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00000000' 


00000000'FF42 
00000000" b4 
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CF 
vere 


BAM ane 
iy 00 

DD 00228 22S: 
DD D 

op | 238 
A 00233 
BE a 
0 8 if ses: 
13 00 45 

3C 0024 

C6 024A 

ED 00240 

bs 09588 268 
1 60 a 
9A 00260 

D4 00267 

11 00269 

DE 00268 27S: 
D5 00 

13 00276 
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OB 00 ie 

Fe 00288 

F3 OO2BF 28S: 

DD 00293 

9A 00299 

78 002A0 

FB O02A4 

D4 002AB 

D3 0 B1 298: 
13 00283 

D5 00285 

12 00288 

3C 002BD 
Bie 

8 BES so, 
D4 002D 

11 00208 

OF 0 oP 318: 
i i 

12 002E 

D4 O02F 

11 O02F 

DD 002F4 328: 
DD OO2F8 33%: 
FB OOFA 

CO OO2FF 


-1984 00:18: AX-11 Blis 
-138¢ 90:38:38 EBACKUP SRE 
428-208 
BRW 49$ 
WOVCS B, (P), (0) 
ADDL2 8. P 
RB 19$ 
PUSHL (C 
PUSHL é 
BRB 4$ 
PUSHL (¢ 
MOVZBL COM_I_SETCOUNT, R 
ASHL #2, RO, =(SP) 
BRW 4 
MOVL 4(P), R3 
BEQL  26$ 
MOVZWL (P), RO 
IvL2. #8, R 
cCHPZV #0, #8, COM_I_SET 
ist FAST_IMAP 
MOVZ2BL COM_I_SETCOUNT, R 
CLRL 
BRB 8$ 
MOVAL @FAST_IMAPCI], RO 
TSTL  =4(ROT 
BEQL 
PUSHL  =4(RO) 
MOVAL a@FAST_IMAP_SIZELI 
ASHL #9, -&%(RO)> -(SP) 
CALLS #2. FREE va 
AOBLEQ R4. I, 278 
PUSHL FAST {MAP 
MOVZBL COM_T SETCOUNT, R 
ASHL #2,7RO, -(S 
CALLS #2, FREE_VM 
CLRL —- FAST_IMAP 
TSTL RS 
BEQL «6=_-«358 
TSTL - FAST_IMAP 
BNEQ 308 
MOVZWL (P), RO 
DIVL3 #2, RO, -<(SP) 
CALLS #1. GET_ZERO_VM 
VL. RO, FAST_IMA 
MOVZBL COM_I_SETCOUNT, R4 
CLAL 
BRB 4$ 
PUSHAL @FAST_IMAPCI) 
SUBL2. #4, (SP) 
MOVL AST_IMAP_SIZE, RO 
BNEQG 32 
CLRL = = (SP) 
BRB 33$ 
PUSHL -4(RO)CI) 
PUSHL 
CALLS #3, RESTORE_COPY 
ADDL2 #8. Q 


Saat V4.0-742 
RESTART .832;1 


0 


COUNT, RO 


4 


J, RO 


~ 
o 
oe 
o 
7 
° 
© 
oe 
*. 
. 
o 
° 
. 
° 
o 
e 
* 
e 
e 
e 
° 
. 
. 
& 
7 
o 
. 
> 
- 
a 
a 
> 
oa 
. 
. 
° 
. 
€ 
on 
o 
a 
a 
. 
& 
o 
a 
oe 
o 
° 
. 
a 
° 
a 
a 
. 
e 
. 
o 
- 
e 
e 
e 
eo 
. 
. 
e 
. 
2 
o 
e 


eal 


wr yy 


p—-------- -— 


| RESTART Reel C¢ 
52.000 


| peskpotnt and Restart 
Vv SAVE RESTART = restart from Last checkpoint 
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58 00000000° rf 
0094 + #8 66 060 F 
0254 (8 60 Gort ef 
56 15F £6 
6E 6 
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‘ f 
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04 Ab 4 
66 56 
52 00 a 
A 
7E 09 «2A 
000000006 00 be 
58 66 
56 58 
1F 
7E 09 =6AB 
000000006 00 gf 
5A 0 
50 09 43 
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58 68 
56 ; 
Fes 
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00000000' ‘ 
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b- aet 90:18:18 ee Bliss-32 V4.0-742 


BACKUP. SRCJRESTART.B32;1 
R4, I, 318 
41$ 
NPUT FAB, RB 
#96, (P), 148(R8) 
aes 96(P), 596¢ 
; 1(R6), P 
(P)+, SAVE_D_VER 
#28, P 


R8) 


C 
FAST_BUFFER_SIZE 
#3, RESTORE_COPY 
47$ : 


Nn WS = Ue = WO 


RBzOSS QO VVL-OOM 
o--+4 An 
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Bln -DoOWBOlfo-s 
onDo-o-~— US 
~~. Os OW ~~ 

~~ 


ooo 
Co~ 


INPUT_CHAN 

#16, INPUT_QUAL, -(SP) 
#4, ASSIGN” INPUT_CHANNEL 
RO, STAT 

STATUS, 50S 

STATUS 


INPUT FAB 
} ACKOPS_OPENINeG 
SAVE PROC LIST, INPUT_PROC_LIST 
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7E 00000000" 


8F 


STA 


000000006 
03 00000000' 
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7E 00000000" 
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000000006 
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0 0c 
00000009' 
00000000° 


7E 00000000° 
000000006 


mn 
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78 00000000" 
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08 000000 


Omron oon 
Ooort Oooo 


peckpoint and Restart 
T = restart from last checkpoint 


20 58 
if 030¢ F 
. 
EF b3 
0132 

50 00000000° 4 
03 Ad 

EF 

02 3A a0 
0089 

0 00 
5 eauet § EF 
AE 0 A7 
A OC AE 
B 04 re 
7E 00000000" +4 
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10 A 

EF d 
00000000° 34 

0 ? 
0 98 
€ 0 
0 00000000" EF 
AO 04 AE 
AE 04 AE 
EF 10 
34 0910 8=8F 
1 03 
+ 08 
0 02 
03 00000000° Hi 
0088 

00000000" ef 

EF 8 
6€ 0 
CO AD 

AD 00200001 F 
EF 4 
AD 0050008 F 
50 00000000" EF 
AD & Ae 
AD 8 A 
AD 40 BF 
AD CO = AD 
7eE 

7E 

7E 
88 AD 
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3 
1h-sep -1984 AX-11 Bliss- 
14-5 Haat 90: 4g: 48 BACKUP. SRC 
D VL SAVE_PROC_LIST 
E OVL (SAVE_PROC ist). 
E PUSHL fT 
E MOVZWL #780, <(SP) 
EA cA Ls 55 FREE_VM 
0 F} 1$: BBC QUAL+12, 53$ 
O3FB 3: BRW oi$ 
0 FE $: MOVL NPUT_NAM, RO 
040 BEQL 2$ 
0407 TSTB (RO) 
OA BEQL 
4 CMPB (RO), #2 
41 BNEQ 4$ 
041 BRW 56$ 
0415 54$ CALLS #0, ng DIR_DATA 
041 MOVL NAM, R7 
04 MOVZBL ney }- wes 
0428 OV RSA, DESC#4 
042D MOVC3 DESC, oer). RSA 
04 PUSHL  SAVE_D_VER 
04 MOVZBL FAST_RUN, =(SP) 
0430 PUSHL #2 
043F PUSHAB DESC 
0442 ADDL3 #16, INPUT_QUAL, -(SP) 
044A PUSHL 7 
044¢ PUSHL INPUT 
0452 CALLS &7, IniT. ‘DIR SCAN 
0459 CALLS #0. FIND NEXT 
0460 BLBS RO, 55$ ~ 
046 MOVL § INPUT_NAM, RO 
046A MOVB. DESC, ~3(RO) 
O46F MOVC3 DESC, bs a4 (RO) 
0476 BISB2 FLAGS 
0470 MOVZWL nebo $0, cAKPT STATUS 
486 55$:  EXTZ AL710, 
48F ADDL a8. a bute “QUAL “tsb 
0497 CALLS RESET DIR sp EC 
049F 56$: BLBS thut _FLAGS, 5 
0445 57$: BRW 
0408 58$:  TSTB eyes 
O4A BLSS 5 
048 BBS COM_FLAGS, 61$ 
ABB MOVCS 50° (SPT, #0, #64, FIB 
C1 MOVL #2097153 FIB 
4C9 BBC cites 8 FLAGS, 59% 
401 MOVL #3 
409 59$: MOVL re 
4e0 MOVL tte Nias 
4E VW (RO), FIB+8 
EA MOVZBL #64, FIB_DESC 
4EF VAB_ FIB, FIBDESC+4 
4F4 CLRQ 2s =( SP) 
04F6 CLRQ  =(SP) 
O4F8 CLRL = = (SP) 
O4FA PUSHAB FIB_DESC 


nes STAR 


0-742 
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rom last checkpoint 


RESTART Reel Checkpoint and Restart 
v04-000 SAVE RESTART - restart 
7E ; 
00000000' 
000000006 5s 
6 BO 
OE 
00000000" EF 
00000000" EF 
945458 
444 00° 
0000000' 
00000000G 00 
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=(SP) 


1088 
#114, =(SP) 
INPUF CHAN 


wi2, SyS$orow 
RO, STATUS 


#16, COM_FLAGS 
STATUS, CHKPT_STATUS 
CHKPT_STACK 
CHKPT-HIGH_SP 
CHKPT-LOW SP 

#3, RESTART_M 


AX-11 Bliss-32 v4 
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BACKUP. SRC JRESTART.B3 
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3 
eckpoint and Restart 18-sep-19 4 


RESTART = restart restore operation 


-Sep-1984 BACKUP.SRC JRE 


ZSBTTL "RESTORE RESTART = restart restore operation’ 


GLOBAL ROUTINE RESTORE_RESTART: NOVALUE= 


14 


' 
eather DESCRIPTION: 


S routine restarts a restore operation on the current reel 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


i 

' 

i OUTPUT PARAMETERS: 
; NONE 

i ROUTINE VALUE: 

: NONE 

' 


SIDE EFFECTS: 
NONE 


= 
BEGIN 
EXTERNAL ROUTINE 


TRY_NEXT_VOLUME , ! Set up next volume under handler 
UNLBAD ; ! Rewind and unload tape 


UNTIL TRY_NEXT_VOLUME () 


DO UNLOADT); 
RETURN ; 
END; 
000000006 00 908 itd 1$: 
09 98 EB 00 ; 
000000006 00 00 FB 00 
ED 11 0001 
04 00015 28 


22 bytes, Routine Base: CODE + 0850 


; Routine Size: 


RY_NEXT_VOLUME 
NLOAD 


ab Sn HA Save nothing 
#Q, TRY_NEXT_VOLUME 


COMMAND QUALIFIERS 


: Size: 1961 code + 2313 data bytes 
un Time 00:48.6 

; lk ed Time ad 6.4 

; Lines/CPU Min 0 


Lexenes/CPU-Rin: 34523 
; gonery @ Used: 513 pages 
; Compilation Complete 


RESTAR Reel Checkpoint and Restart 4 AX-11 Bliss-3 2 Pa 
yb2-000 RESTORE REG ART = restart restore operation 16: sen 1984 99: dg: § YBACKUP- SRE RESTART BSoe1 9 465 
: 1068 613 1 END 
: 1985 sea 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
COMMON $186 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,A a ents} 
CODE 150 NOVEC *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
coesssen Syabel§ coccesce Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 32 0 1000 00:02.2 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RESTART/OBJ=OBJ$:RESTART MSRC$:RESTART/UPDATE=(ENHS:RESTART) 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL -AND PROPRIETARY 


SE 


AH-BT13A- 
VAX/VMS V4.0 


0012 


PMENT CORPORATION 
“AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


001 


